home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue42 / construc / UNIT2.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1999-01-11  |  729 b   |  37 lines
  1. unit Unit2;
  2. interface
  3. uses
  4.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  5.   StdCtrls, Buttons, ExtCtrls;
  6.  
  7. type
  8.   TFormPostReply = class(TForm)
  9.     Panel1: TPanel;
  10.     MemoArticle: TMemo;
  11.     EditFrom: TEdit;
  12.     EditDate: TEdit;
  13.     EditSubject: TEdit;
  14.     Label1: TLabel;
  15.     Panel2: TPanel;
  16.     BitBtn1: TBitBtn;
  17.     BitBtn2: TBitBtn;
  18.     procedure FormCreate(Sender: TObject);
  19.   private
  20.     { Private declarations }
  21.   public
  22.     { Public declarations }
  23.   end;
  24.  
  25. var
  26.   FormPostReply: TFormPostReply;
  27.  
  28. implementation
  29. {$R *.DFM}
  30.  
  31. procedure TFormPostReply.FormCreate(Sender: TObject);
  32. begin
  33.   EditDate.Text := FormatDateTime('dd mmm yyyy  hh:mm:ss',Now);
  34. end;
  35.  
  36. end.
  37.